home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00711_AC-IN 1.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  973 b   |  33 lines
  1. on enterFrame
  2.   global gMaxBoutons, exitFrame, gBarChron, gChapAct, gChapPrec, gEtudAct, exitFrame, gMessDef1, g1erSprLoc, exitFrame, g1erSprNav, gLabel, gAcLabel, gPartie, gAng, gSujet0, gSujet1, gPosVideo, gEtudPrec, gLoadZic
  3.   curseur(6)
  4.   set gPartie to " "
  5.   set gAng to " "
  6.   set gSujet0 to 0
  7.   set gSujet1 to 0
  8.   set gPosVideo to 0
  9.   set gEtudPrec to gEtudAct
  10.   set gLoadZic to 1
  11.   set gMaxBoutons to 37
  12.   set g1erSprLoc to 22
  13.   set g1erSprNav to 15
  14.   repeat with i = g1erSprNav to gMaxBoutons
  15.     puppetSprite(i, 0)
  16.   end repeat
  17.   repeat with i = g1erSprLoc + 11 to gMaxBoutons
  18.     set the visible of sprite i to 0
  19.   end repeat
  20.   set the visible of sprite 2 to 0
  21.   set the visible of sprite 3 to 0
  22.   set the visible of sprite 4 to 1
  23.   set gAcLabel to "AC:RN"
  24.   set gLabel to "AC:RN"
  25.   set gChapPrec to gChapAct
  26.   set gChapAct to "AC"
  27.   set gEtudAct to " "
  28.   set gMessDef1 to " "
  29.   gBarChron(fleche, 0, 70, 2)
  30.   set the text of cast "ZIACC" to " "
  31.   curseur(-1)
  32. end
  33.